Const ForReading = 1
Const ForAppending = 8

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("report/jsTestDriver.conf-coverage.dat", ForReading)
Set objTextFile = objFSO.OpenTextFile("report/corregido.dat", ForAppending, True)


Dim caracterX 
Dim Linea 
caracterX = ".\"
i = 0
Do Until objFile.AtEndOfStream
Linea = objFile.ReadLine
Linea = replace(Linea,caracterX,"")
objTextFile.WriteLine(Linea)
Linea=""
i = i + 1
Loop
objFile.Close
objTextFile.Close

objFSO.DeleteFile("report/jsTestDriver.conf-coverage.dat")
objFSO.MoveFile "report/corregido.dat", "report/jsTestDriver.conf-coverage.dat"
